home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ply15dat.zip / PEOPLE.PI < prev    next >
Text File  |  1992-11-06  |  1KB  |  58 lines
  1. //
  2. // Sample file that builds a room with two people
  3. //
  4. // Based on the amazing person data file Created by Will Wagner
  5. //
  6.  
  7. viewpoint {
  8.    from <0, 20, -25>
  9.    at <0, 7, 0>
  10.    angle 45
  11.    up <0,1,0>
  12.    resolution 640, 480
  13.    aspect 4/3
  14.    }
  15.  
  16. include "..\colors.inc"
  17. include "roomtex.inc"
  18.  
  19. light <20, 30, -30>
  20.  
  21. // Floor
  22. object {
  23.    disc <0, 0, 0>, <0, 1, 0>, 500
  24.    texture {
  25.       checker waxed_white, green_marble
  26.       scale <10, 10, 10>
  27.       translate <0, -0.001, 0>
  28.       }
  29.    }
  30.  
  31. // Side wall
  32. object {
  33.    disc <-20, 0, 0>, <1, 0, 0>, 500
  34.    orange_agate
  35.    }
  36.  
  37. // Back wall
  38. object {
  39.    // Big wall with a hole cut out of it
  40.    ( object { box <-50, -2, 30>, <50, 30, 30.1> sapphire_agate } -
  41.      object { box <-10, 0, 29>, <0, 15, 31> } ) +
  42.    object { box <0, 0, 0>, <1, 17, 1> translate <-10.5, 0, 29.5> reddish_wood}+
  43.    object { box <0, 0, 0>, <1, 17, 1> translate <-0.5, 0, 29.5> reddish_wood } +
  44.    object { box <0, 0, 0>, <11, 2, 1> translate <-10.5, 15, 29.5> reddish_wood }
  45.    }
  46.  
  47. include "woodchai.inc"
  48. wooden_chair { scale <1.5, 1.5, 1.5> rotate <0, 70, 0> }
  49.  
  50. include "joints1.inc"
  51. include "body.inc"
  52. person { shiny_coral rotate <0, -60, 0> translate <5, 0, 20> }
  53.  
  54. include "joints2.inc"
  55. include "body.inc"
  56. person { shiny_coral rotate <0, 0, 0> translate <-5, 0, 0> }
  57.  
  58.